Option Explicit
Sub Q_Sample056()
    Dim myRc As Long
    myRc = FindWindow(vbNullString, Application.Caption)
    'myRc = FindWindow(vbNullString, Application.VBE.MainWindow.Caption)
    MsgBox myRc
End Sub